Collection of Tools & Utilities/Collection of Tools and Utilities.iso/basic/dialogic.zip/DIALOG4.DB

Text File | 1990-01-31 | 6KB | 163 lines

DB(Level%, 1).Code = 1
DB(Level%, 1).Y = 0
DB(Level%, 1).X = 0
DB(Level%, 1).Height = 22
DB(Level%, 1).Wdth = 65
DB(Level%, 1).BorderType = 1
DB(Level%, 1).PrimaryColor = -c1
DB(Level%, 1).WindowColor = -c1
DB(Level%, 1).Text = "List Boxes"
DB(Level%, 1).TextColor = c2
DB(Level%, 1).SecondaryColor = c1

LB(1).Text = "The list box allows you to present items in a window."
LB(2).Text = "These items may be scrolled by the user.  Several types"
LB(3).Text = "of list box may be created.  This text window is a list"
LB(4).Text = "box!  Two other types are show below.  The box on the"
LB(5).Text = "left mocks all available drives;  the other mocks avail-"
LB(6).Text = "able files.  List boxes may have optional bottom or right"
LB(7).Text = "scroll bars,  and they and their contents may be any size."
LB(8).Text = "Items may be linked to another dialog box element.  A"
LB(9).Text = "selected item may be printed anywhere on the screen"
LB(10).Text = "and the selected item may be embedded in a context-"
LB(11).Text = "sensitive sentence link."
LB(12).Text = " "
LB(13).Text = "For example, the list box to the left uses the text-box"
LB(14).Text = "link.  This link allows either manual or automatic"
LB(15).Text = "entry of the drive name into the text box.  The list box "
LB(16).Text = "to the right uses the sentence link.  Sentence links"
LB(17).Text = "allow a list box item to appear in a sentence somewhere"
LB(18).Text = "on the screen.  Here, the sentence appears right below "
LB(19).Text = "the list box."
LB(20).Text = ""
LB(21).Text = "Once you tab to a list box try experimenting with the"
LB(22).Text = "fully-operational diectional keys.  If you type the first"
LB(23).Text = "character of a list box item then the cursor will search"
LB(24).Text = "and highlight the next item which matches.  The mouse"
LB(25).Text = "may be used to select items,  to operate the scroll bars"
LB(26).Text = "directly, or even to double click on an item to be"
LB(27).Text = "selected."
LB(28).Text = "[A:]"
LB(29).Text = "[B:]"
LB(30).Text = "[C:]"
LB(31).Text = "[D:]"
LB(32).Text = "[E:]"
LB(33).Text = "[F:]"
LB(34).Text = "[G:]"
LB(35).Text = "[H:]"
LB(36).Text = ",BC.EXE, is the QuickBASIC compiler."
LB(37).Text = ",BCOM45.LIB, is used in linking."
LB(38).Text = "The file~,BQLB45.QLB, creates a QuickLibrary."
LB(39).Text = "A great QuickLibrary:~,DIALOGIC.QLB,"
LB(40).Text = ",LINK.EXE, is a linker."
LB(41).Text = "You should try~,MASM.EXE,."
LB(42).Text = ",DIALOGIC.LIB, Register to get this one!."
LB(43).Text = ",WP, WordPerfect 5.1."
LB(44).Text = ",LADDER, Compay Ladder"
LB(45).Text = ",DEMO2.EXE, Dan Briklin's Demo Program."
LB(46).Text = ",DEAR.001, is Letter 1."
LB(47).Text = ",DEAR.002, is Letter 2."
LB(48).Text = ",DEAR.003, is Letter 3."
LB(49).Text = ",DEAR.004, is Letter 4."
LB(50).Text = ",DEAR.005, is Letter 5."
LB(51).Text = ",DEAR.006, is Letter 6."
LB(52).Text = ",DEAR.007, is Letter 7."
LB(53).Text = ",DEAR.008, is Letter 8."
LB(54).Text = ",DEAR.009, is Letter 9."
LB(55).Text = ",DEAR.010, is Letter 10."

DB(Level%, 2).Code = 3
DB(Level%, 2).Y = 2
DB(Level%, 2).X = 2
DB(Level%, 2).Height = 6
DB(Level%, 2).Wdth = 1
DB(Level%, 2).WindowColor = c1
DB(Level%, 2).PrimaryColor = c1
DB(Level%, 2).SecondaryColor = c2
DB(Level%, 2).SelectedColor = -1
DB(Level%, 2).StarColor = c1
DB(Level%, 2).ItemLength = 60
DB(Level%, 2).KeyColor = 0
DB(Level%, 2).BorderType = 2
DB(Level%, 2).Link = 0
DB(Level%, 2).TextY = 0
DB(Level%, 2).TextX = 0
DB(Level%, 2).TextColor = c1
DB(Level%, 2).NumberOne = 1
DB(Level%, 2).NumberTwo = 27
DB(Level%, 2).Default = 1

DB(Level%, 3).Code = 3
DB(Level%, 3).Y = 10
DB(Level%, 3).X = 3
DB(Level%, 3).Height = 5
DB(Level%, 3).Wdth = 1
DB(Level%, 3).WindowColor = c1
DB(Level%, 3).PrimaryColor = c1
DB(Level%, 3).SecondaryColor = c2
DB(Level%, 3).SelectedColor = c3
DB(Level%, 3).StarColor = c1
DB(Level%, 3).ItemLength = 9
DB(Level%, 3).KeyColor = 0
DB(Level%, 3).BorderType = 2
DB(Level%, 3).Link = 0
DB(Level%, 3).TextY = 0
DB(Level%, 3).TextX = 0
DB(Level%, 3).TextColor = c1
DB(Level%, 3).NumberOne = 28
DB(Level%, 3).NumberTwo = 35
DB(Level%, 3).Default = 0
DB(Level%, 3).Link = 5

DB(Level%, 4).Code = 3
DB(Level%, 4).Y = 10
DB(Level%, 4).X = 19
DB(Level%, 4).Height = 5
DB(Level%, 4).Wdth = 3
DB(Level%, 4).WindowColor = c1
DB(Level%, 4).PrimaryColor = c1
DB(Level%, 4).SecondaryColor = c2
DB(Level%, 4).SelectedColor = c3
DB(Level%, 4).StarColor = c1
DB(Level%, 4).ItemLength = 12
DB(Level%, 4).KeyColor = 2
DB(Level%, 4).BorderType = 1
DB(Level%, 4).Link = -1
DB(Level%, 4).TextY = 18
DB(Level%, 4).TextX = 20
DB(Level%, 4).TextColor = c1
DB(Level%, 4).NumberOne = 36
DB(Level%, 4).NumberTwo = 55
DB(Level%, 4).Default = 0

DB(Level%, 5).Code = 2
DB(Level%, 5).Y = 17
DB(Level%, 5).X = 3
DB(Level%, 5).Wdth = 10
DB(Level%, 5).BorderType = 1
DB(Level%, 5).PrimaryColor = c1
DB(Level%, 5).WindowColor = c1
DB(Level%, 5).SelectedColor = c3
DB(Level%, 5).TextY = 18
DB(Level%, 5).TextX = 3
DB(Level%, 5).Text = ""
DB(Level%, 5).TextColor = c1
DB(Level%, 5).KeyColor = c4
DB(Level%, 5).TextString = ""
DB(Level%, 5).ItemLength = 5

DB(Level%, 6).Code = 7
DB(Level%, 6).Y = 21
DB(Level%, 6).X = 30
DB(Level%, 6).Text = "~OK"
DB(Level%, 6).PrimaryColor = c1
DB(Level%, 6).WindowColor = c1
DB(Level%, 6).SelectedColor = c3
DB(Level%, 6).KeyColor = c4
DB(Level%, 6).SecondaryColor = c4
DB(Level%, 6).Default = -1
DB(Level%, 6).TextString = CHR$(13)

DB(Level%, 7).Code = 0